/* GUI CONVERTED from rcinqtal.p (converter v1.75) Tue Apr 10 12:04:20 2001 */
/* rcinqtal.p - ROUTINE TO UPDATE ALLOCATED QTY OF IN_MSTR RECORD             */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.7 $                                                        */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 9.0         CREATED: 12/17/98    BY: *J374* Surekha Joshi        */
/* REVISION: 9.0   LAST MODIFIED: 03/13/99    BY: *M0BD* Alfred Tan           */
/* REVISION: 9.1   LAST MODIFIED: 08/12/00    BY: *N0KP* Mark Brown           */
/* $Revision: 1.7 $    BY: Jean Miller    DATE: 03/22/01 ECO: *P008*       */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* THIS ROUTINE IS CALLED BY RCSHMTB.P TO UPDATE ALLOCATED QTY OF IN_MSTR  */

define input parameter l_sod_nbr    like sod_nbr    no-undo.
define input parameter l_sod_line   like sod_line   no-undo.
define input parameter l_old_all    like in_qty_all no-undo.

for first sod_det
fields (sod_line sod_nbr sod_part sod_qty_all sod_qty_pick sod_site
        sod_um_conv)
where sod_nbr  = l_sod_nbr and
      sod_line = l_sod_line
no-lock: end. /* FOR FIRST SOD_DET */

if available sod_det then
   find in_mstr where
        in_part = sod_part and
        in_site = sod_site
   exclusive-lock no-error.

if available in_mstr then
   in_qty_all = in_qty_all + ((sod_qty_all + sod_qty_pick) *
                sod_um_conv - l_old_all).
